﻿Public Class frmChangePassword

    Private Sub frmChangePassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        reset()
        getUser()
    End Sub

    Protected Sub getUser()
        txtUser.Text = frmMain._User
    End Sub

    Protected Sub reset()
        txtUser.Clear()
        txtPassOld.Clear()
        txtPass1.Clear()
        txtPass2.Clear()
    End Sub

    Protected Sub clear()
        txtPassOld.Clear()
        txtPassOld.Focus()
        txtPass1.Clear()
        txtPass2.Clear()
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Close()
    End Sub

    Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
        update_User_Password()
    End Sub

    Protected Function checknull() As Boolean
        Dim oc As New cControl
        If oc.checknull(txtUser.Text) And oc.checknull(txtPassOld.Text) And oc.checknull(txtPass1.Text) And oc.checknull(txtPass2.Text) Then
            Return True
        Else
            Return False
        End If
    End Function

    Protected Function comparedPaswordOld() As Boolean
        Dim rv As Boolean = False
        Dim dt As New DataTable
        Dim oUser As New cUser
        dt = oUser.select_User_byID(txtUser.Text)
        If dt.Rows(0)("Password") = txtPassOld.Text Then
            rv = True
        End If
        Return rv
    End Function

    Protected Function comparedPasswordNew() As Boolean
        Dim rv As Boolean = False
        If txtPass1.Text = txtPass2.Text Then
            rv = True
        End If
        Return rv
    End Function

    Protected Sub update_User_Password()
        Dim oUser As New cUser
        If checknull() Then
            If comparedPaswordOld() Then
                If comparedPasswordNew() Then
                    If oUser.update_User_Password(txtUser.Text, txtPass1.Text) Then
                        MessageBox.Show("ផ្លាស់ប្តូរលេខសម្ងាត់បានសម្រេច", "ផ្លាស់ប្តូរលេខសម្ងាត់", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        clear()
                    Else
                        MessageBox.Show("ផ្លាស់ប្តូរលេខសម្ងាត់មិនបានសម្រេច", "ផ្លាស់ប្តូរលេខសម្ងាត់", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                Else
                    MessageBox.Show("លេខសម្ងាត់ថ្មីនិងបញ្ជាក់លេខសម្ងាត់ថ្មី មិនត្រូវគ្នាទេ", "ផ្លាស់ប្តូរលេខសម្ងាត់", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Else
                MessageBox.Show("អ្នកប្រើប្រាស់និងលេខសម្ងាត់ មិនត្រូវគ្នាទេ", "ផ្លាស់ប្តូរលេខសម្ងាត់", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            MessageBox.Show("សូមបញ្ចូលគ្រប់ពត៌មានទាំងអស់!", "ផ្លាស់ប្តូរលេខសម្ងាត់", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
End Class